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VISUAL BASIC FOR APPLICATIONS 


0 QUE E VBA? 


VBA nada mais é do que a programação que fica por tras do Excel. Para ser mais preciso, VBA é uma abreviação para Visual Basic for 
Applications, que se refere à linguagem de programação que é utilizada dentro dos programas do pacote Office. 


Com ele você vai conseguir criar códigos para tornar seu trabalho mais rápido e eficiente no Excel, Word, PowerPoint, Outlook e todos os 
outros programas do pacote Office. 


Como você já deve ter visto, o VBA é capaz de transformar trabalhos que duram horas em rotinas de apenas alguns minutos/segundos. 
Sabendo o trabalho a ser feito, você só precisa dar as instruções ao VBA que ele vai fazer tudo por você de forma rápida e sem erros. 


Além de automatizar rotinas repetitivas, ele pode ser utilizado para a criação de formulários interativos que facilitam a inserção de dados nas 
planilhas. Pode ser utilizado para criação de relatórios e envio de e-mails. Pode ser utilizado para buscar informações na internet de forma 
rápida e precisa. 


Basicamente, o VBA pode ser usado em tudo que você faz no Excel e muito mais. 


Agora que você já sabe o que é e para que serve esse tal de VBA, vamos começar com os conteúdos para que você aprenda como usar essa 
linguagem de programação no seu dia a dia. 


AULA 4 
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0 QUE VAMOS APRENDER: 


Fala, galera! Nessa quarta aula vamos te mostrar como obter dados da Web para complementar seus relatorios em Excel. 


Isso mesmo, você será capaz de obter dados da internet e colocar essas informações dentro da sua planilha para ter informações 
atualizadas de acordo com a sua necessidade. 


Nessa aula, vamos pesquisar as cotações produtos em diferentes moedas (Euro, lene, Dólar...) para cada data de venda e, com 
essas cotações, vamos calcular o preço unitário de cada produto em Reais e atualizar os valores totais em nossa base de dados. 


Ah, não posso esquecer! Tudo isso será feito de forma automática utilizando o VBA! 


Após todos esses conhecimentos, seremos ... De cotações de produtos em diferentes moedas 
capazes de criar um código completo que busca para calcular o valor unitário do produto em Reais 
informações na WEB ... assim como o valor total da venda! 


+ ENTENDENDO O CÓDIGO 


O código dessa aula não é grande, mas vai te permitir buscar qualquer tipo de informação da WEB! 


Na primeira parte dele vamos fazer a integração do Excel com o Internet Explorer (mais um recurso do VBA). Feito isso, vamos verificar quantas 
linhas temos na nossa tabela para que possamos verificar a quantas cotações precisamos encontrar. 


Vamos formatar as datas adequadamente para facilitar a busca das cotações e, em seguida, vamos entrar no site para buscar a cotação da moeda 
desejada na data específica da venda daquele produto. 


Por fim, vamos registrar o valor da cotação e efetuar os cálculos desejados para completar a nossa tabela. 


Ah, também vamos repetir esse processo para todas as linhas da nossa tabela de forma automática e sem esforço! 
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ENTENDENDO 0 RESULTADO 


Como vamos preencher uma tabela, temos algumas etapas a serem feitas. A primeira delas é obter a data e a moeda em que vamos utilizar para 
buscar a cotação. 


Em seguida, vamos procurar essa cotação e inseri-la na tabela. 


Com isso, já podemos iniciar os cálculos de valor unitário e valor total. Por fim, vamos repetir o mesmo procedimento para todos os produtos da 
nossa lista, independente do tamanho dela! 
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ENTENDENDO O CÓDIGO 


O código vai fazer exatamente o que explicamos nos slides anteriores. Na execução dele, você vai perceber que as informações da tabela serão 
preenchidas em sequência e o Internet Explorer vai ficar aberto enquanto busca as informações. 


» pesquisar cotacoes() 
je = CreateObject "InternetExplorer. Application") 
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DETALHANDO O CÓDIGO 


Agora que você já sabe o que o código faz, vamos à explicação mais detalhada de cada uma das partes: 
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1. Iniciamos com o código que vai permitir fazer a conexáo com o Internet Explorer através do VBA; 
2. Em seguida, vamos verificar a última linha da nossa tabela para saber a quantidade de cotações que vamos precisar descobrir; 
3. Depois, vamos iniciar a nossa estrutura de repetição para repetir todo o procedimento de busca de cotações para cada uma das vendas da tabela; 


4. A estrutura If será utilizada para verificar se a cotacáo já está preenchida ou nao. Se estiver vazia, vamos abrir o navegador do Internet Explorer e 
guardar algumas informações que serão necessárias para a busca; 


5. Por fim, vamos separar as informações da data em dia, mês e ano. 


DETALHANDO O CÓDIGO 


Vamos à segunda parte do código, que é onde vamos criar o link de acesso ao site de busca e fazer com que o navegador acesse o site: 


1. Nessa primeira parte temos algo bem importante, pois no passo anterior fizemos a separação da data em dia, mês e ano. Agora, vamos 
juntar novamente essas informações com traço e no formato americano, pois o site que vamos buscar precisa dessa data nesse formato para 
funcionar direitinho; 


2. Em seguida, vamos criar o link padronizado com as informações da moeda e da data para buscar a cotação desejada; 
3. Com essa variável criada podemos dar o comando para o navegador entrar no site informado; 


4. Feito isso, vamos entrar em um loop para verificar se a página já foi 100% carregada ou se ainda está carregando. Caso ainda esteja 
carregando, vamos repetir ficar nesse loop até que ela finalize isso. 


DETALHANDO O CÓDIGO 


Vamos à terceira parte do código, que é onde vamos finalizar nossas ações: 


tagname ("td") (0) 


1. Nessa parte, vamos obter o valor da cotação que está no site e atribui-la à variável valor cotação; 


2. Em seguida, vamos atribuir o valor da cotação à célula referente ao produto que foi cotado. Depois, vamos calcular o valor unitário desse 
produto e, por fim, vamos calcular o valor total do produto multiplicando o valor unitário pela quantidade vendida; 


3. Para finalizar, só precisamos fechar o Internet Explorer e terminamos o código! 


RESULTADO 


Aqui temos o resultado do nosso codigo: 
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Data Produto Moeda Valor Unitário Quantidade 


06/01/2021 Produto E | 
18/01/2021 Produto C| 
03/02/2021 Produto E Í 
18/02/2021 Produto A 
18/02/2021 Produto E | 
01/03/2021 Produto D| 
15/03/2021 Produto B| 
18/03/2021 Produto C | 
29/03/2021 Produto D| 
12/04/2021 Produto C| 
19/04/2021 Produto D| 
20/04/2021 Produto C| 
27/04/2021 Produto B 
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20.296,00 | 
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Data Produto Moeda 
06/01/2021 | Produto E | 


18/01/2021 | Produto C 


03/02/2021! Produto E | 
18/02/2021 | Produto A 


18/02/2021 Produto E 


01/03/2021 | Produto D| 
15/03/2021 | Produto B | 


18/03/2021 | Produto C 


29/03/2021 | Produto D| 
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calculássemos o valor unitário e o valor total da venda em Reais. 
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Pesquisar Cotações 
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RS 0,05143 | 


RS 6,37240 
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RS 4,39510 
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Valor Unitário (R$) 
1.043,82 | R$ 7.306,76 | 
146,57 | R$ 14.216,82 | 
969,26 | R$ 23.262,34 | 
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